home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
09-23.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
851b
|
50 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
Status = SETMEM(-1*(4096+16))
OldMode = FGgetmode
IF FGtestmode(3,2) THEN
FGsetmode 3
ELSEIF FGtestmode(7,2) THEN
FGsetmode 7
ELSE
PRINT "This program requires"
PRINT "an 80-column display."
STOP
END IF
FGcursor 0
FGsetattr 9, 7, 0
FOR Row = 0 TO 24
CharString$ = " This is row" + STR$(Row) + " "
FGlocate Row, 0
FGtext CharString$, 16
FGtext CharString$, 16
FGtext CharString$, 16
FGtext CharString$, 16
FGtext CharString$, 16
NEXT
FGwaitkey
Status = FGallocate(1)
FGtransfer 32, 47, 11, 13, 0, 24, 0, 1
FGsetcolor 1
FGrect 32, 47, 11, 13
FGsetattr 15, 1, 0
FGlocate 12, 33
FGtext "Press any key.", 14
FGwaitkey
FGtransfer 0, 15, 22, 24, 32, 13, 1, 0
FGwaitkey
Status = FGfreepage(1)
FGsetmode OldMode
FGreset
END